home *** CD-ROM | disk | FTP | other *** search
Wrap
<!-- #include file="i_utils.asp" --> <% check_security(1) %> <% dim StateID dim State dim Code dim Keywords dim Note dim RegionID dim edit_lustates_sql dim Region dim view_lustates_sql sub request_edit_lustates ''' request expected input parameters for this form StateID = request("StateID") State = request("State") Code = request("Code") Keywords = request("Keywords") Note = request("Note") RegionID = request("RegionID") end sub sub request_view_lustates ''' request expected input parameters for this form StateID = request("StateID") Code = request("Code") State = request("State") Region = request("Region") RegionID = request("RegionID") Keywords = request("Keywords") Note = request("Note") end sub sub validate_edit_lustates ''' request and validate data entered from this form StateID = trim(request("StateID")) State = trim(request("State")) Code = trim(request("Code")) Keywords = trim(request("Keywords")) Note = trim(request("Note")) RegionID = trim(request("RegionID")) end sub sub validate_view_lustates ''' request and validate data entered from this form StateID = trim(request("StateID")) Code = trim(request("Code")) State = trim(request("State")) Region = trim(request("Region")) RegionID = trim(request("RegionID")) Keywords = trim(request("Keywords")) Note = trim(request("Note")) end sub sub db_select_edit_luStates sql = "SELECT " & _ "StateID, " & _ "State, " & _ "Code, " & _ "Keywords, " & _ "Note, " & _ "RegionID FROM luStates" & _ " WHERE " & _ "luStates.StateID = " & to_sql(StateID,"number") & "" on error resume next set rs = cn.Execute(sql) if err.number <> 0 then b_error = true elseif rs.EOF then b_results = false else StateID = rs("StateID") State = rs("State") Code = rs("Code") Keywords = rs("Keywords") Note = rs("Note") RegionID = rs("RegionID") end if rs.Close on error goto 0 end sub sub db_insert_edit_luStates sql = "INSERT INTO luStates" & _ "(" & _ "State," & _ "Code," & _ "Keywords," & _ "Note," & _ "RegionID" & _ ") VALUES (" & to_sql(State,"text") & "," & _ "" & to_sql(Code,"text") & "," & _ "" & to_sql(Keywords,"text") & "," & _ "" & to_sql(Note,"text") & "," & _ "" & to_sql(RegionID,"number") & ")" & _ "" 'response.write sql on error resume next cn.Execute(sql) if err.Number <> 0 then b_error = true else set rs = cn.Execute("SELECT @@IDENTITY") StateID = rs(0) rs.Close end if on error goto 0 end sub sub db_update_edit_luStates sql = "UPDATE luStates SET " & _ "State = " & to_sql(State,"text") & ", " & _ "Code = " & to_sql(Code,"text") & ", " & _ "Keywords = " & to_sql(Keywords,"text") & ", " & _ "Note = " & to_sql(Note,"text") & ", " & _ "RegionID = " & to_sql(RegionID,"number") & " WHERE " & _ "StateID = " & to_sql(StateID,"number") & "" 'response.write sql on error resume next cn.execute(sql) if err.number <> 0 then b_error = true end if on error goto 0 end sub sub db_delete_edit_luStates sql = "DELETE FROM luStates" & _ " WHERE " & _ "StateID = " & to_sql(StateID,"number") & "" 'response.write sql on error resume next cn.Execute(sql) if err.number <> 0 then b_error = true end if on error goto 0 end sub sub db_select_view_luStates view_luStates_sql = "SELECT " & _ "Code, " & _ "Keywords, " & _ "Note, " & _ "Region, " & _ "luStates.RegionID, " & _ "State, " & _ "StateID FROM (luRegions RIGHT JOIN luStates ON luRegions.RegionID=luStates.RegionID) " if request("sortby") <> "" AND inStr(lcase(view_luStates_sql),"order by") = 0 then view_luStates_sql = view_luStates_sql + " ORDER BY " & request("sortby") end sub sub db_delete_view_luStates sql = "DELETE FROM " & _ "" 'response.write sql on error resume next cn.Execute(sql) if err.number <> 0 then b_error = true end if on error goto 0 end sub do_search = request("do_search") ''' request form keys StateID = request("StateID") ''' request action action = lcase(request("action")) ''' action case handler select case action case "select_edit_lustates" ' select the requested key record from database if StateID <> "" then db_select_edit_luStates else b_error = true error_list.add "edit_edit_luStates", "Specify record to select." end if case "insert_edit_lustates" ' request form data and insert a new record into database validate_edit_lustates if not b_error then db_insert_edit_lustates end if case "update_edit_lustates" ' request form data and update an existing database record validate_edit_lustates if not b_error then if StateID <> "" then db_update_edit_lustates else b_error = true error_list.add "update_edit_lustates", "Specify record to update." end if end if case "delete_edit_lustates" ' delete the requested key database record if StateID <> "" then db_delete_edit_lustates response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted." else b_error = true error_list.add "delete_edit_lustates", "Specify record to delete." end if end select ' no action was specified, so handle the default case(s) if StateID <> "" then db_select_edit_lustates end if db_select_view_lustates %> This is the admistation area for the 'luStates' lookup table. This table is useful in 2 ways: <ol> <li>to create 'State' drop-down lists for various form (ie; user regsitration) <li>to manage and orgranize information (links,conent,classifieds) by state. </ol> <% display_errs display_msg %> <table class='headerTable'> <tr> <td class='headerTD'> States Lookup </td> </tr> </table> <table > <form name="edit_luStates" action="admin_luStates.asp" method="GET" > <tr> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Code" class=fieldFont title="">Code</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Keywords" class=fieldFont title="">Keywords</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Note" class=fieldFont title="">Note</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=RegionID" class=fieldFont title="">RegionID</a></td> </tr> <input type=hidden name="StateID" value="<% =StateID %>"> <tr> <td class='dataTD' > <input type=text name="State" size="" maxlength="20" value="<% =State%>"> </td> <td class='dataTD' > <input type=text name="Code" size="" maxlength="30" value="<% =Code%>"> </td> <td class='dataTD' > <input type=text name="Keywords" size="" maxlength="255" value="<% =Keywords%>"> </td> <td class='dataTD' > <textarea name="Note" rows='6' cols='50'><% =Note%></textarea> </td> <td class='dataTD' > <select name="RegionID" > <option></option> <% =get_options ("SELECT RegionId, Region FROM luRegions", RegionID) %> </select> </td> </tr> <tr> <td align=right class=dataTD colspan=6> <% if StateID = "" then %><input type=submit name=insert_button value=insert> <% end if %> <% if StateID <> "" then %><input type=submit name=delete_button value=delete onclick="document.edit_luStates.action.value = 'delete_edit_luStates'"> <% end if %> <% if StateID <> "" then %><input type=submit name=update_button value=update><% end if %> </td> <input type=hidden name="action" value="<% if StateID <> "" then %>update<% else %>insert<%end if %>_edit_luStates"></tr> </form> </table> <% page_no = request("page_no") if page_no = "" then page_no = 1 if view_luStates_sql <> "" then cmd.CommandText = view_luStates_sql rs.Filter = "" rs.CursorLocation = 3 rs.CacheSize = 5 rs.Open cmd if not rs.EOF then rs.MoveFirst rs.PageSize = 50 max_count = cInt(rs.PageCount) num_recs = rs.RecordCount rs.AbsolutePage = page_no results = true else results = false rs.Close end if else results = false end if rec_count = 0 %> <table class='headerTable'> <tr> <td class='headerTD'> luStates </td> </tr> </table> <% if results = true then %> <table > <form name="view_luStates" action="admin_luStates.asp" method="GET" > <tr> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=StateID" class=fieldFont title="">StateId</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Code" class=fieldFont title="">Code</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Region" class=fieldFont title="">Region</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Keywords" class=fieldFont title="">Keywords</a></td> <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Note" class=fieldFont title="">Note</a></td> </tr> <% do while not rs.EOF AND (rec_count < rs.Pagesize) ':: read db record on error resume next StateID = rs("StateID") Code = rs("Code") State = rs("State") Region = rs("Region") RegionID = rs("RegionID") Keywords = rs("Keywords") Note = rs("Note") on error goto 0 %> <tr> <td class='dataTD' > <a href="admin_luStates.asp?StateID=<%=StateID%>&Page_No=<% =page_no %>"><% =StateID %></a> [edit] </td> <td class='dataTD' > <input type=text name="Code" size="" maxlength="30" value="<% =Code%>"> </td> <td class='dataTD' > <input type=text name="State" size="" maxlength="20" value="<% =State%>"> </td> <td class='dataTD' > <a href="admin_luRegions.asp?RegionId=<% =RegionId %>"><% =Region %></a> </td> <input type=hidden name="RegionID" value="<% =RegionID %>"> <td class='dataTD' > <input type=text name="Keywords" size="" maxlength="255" value="<% =Keywords%>"> </td> <td class='dataTD' > <textarea name="Note" rows='6' cols='50'><% =Note%></textarea> </td> </tr> <% rs.MoveNext rec_count = rec_count + 1 loop rs.Close %> </form> </table> <% else %> <% end if %> <% if max_count > 1 then %> <!-- paging footer --> <TABLE class=HeaderTable > <tr> <td width="20%" class=HeaderTD> <% if page_no > 1 then %> <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no-1 %>&sortby=<% =request("sortby") %>">PREV</a> <% else %> <% end if %> </td> <td align=center class=HeaderTD> Page <% for i = 1 to max_count %> <% if i = cint(page_no) then %> <b><%=i%></b> <% else %> <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&sortby=<% =request("sortby") %>"><%=i%></a> <% end if %> <%next %> </td> <td align=right width="20%" class=HeaderTD> <% if cInt(page_no) < cInt(max_count) then %> <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no+1 %>&sortby=<% =request("sortby") %>">NEXT</a> <% end if %> </td> </tr> </TABLE> <% end if %> <% ':: assure that any db resources are freed on error resume next rs.Close set rs = NOTHING cn.Close set cn = NOTHING user_cn.Close set user_cn = NOTHING on error goto 0 %>